home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_c / lov114 / qbnest.bas < prev    next >
BASIC Source File  |  1989-01-05  |  175b  |  12 lines
  1. common shared b
  2.  
  3. print:print "in main";
  4.  
  5. b=1
  6.  
  7. for i=0 to 1
  8.     print:print "Value of b variable is "b;
  9.     call nest1(i)
  10. next
  11. print:print fre(""),fre(0),fre(-1),fre(-2)
  12.